From: Richard M. Stallman Date: Mon, 26 Jul 1993 05:55:40 +0000 (+0000) Subject: (insert-directory): Make sure default-directory is absolute. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~94777 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a9fa0bd5a62b2a0f4405a917da759c014744b6f3;p=emacs.git (insert-directory): Make sure default-directory is absolute. (set-auto-mode): Fix backwards test involving inhibit-local-variables-regexps. --- diff --git a/lisp/files.el b/lisp/files.el index 70e42d81bec..abdaca88fd5 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -833,12 +833,12 @@ If `enable-local-variables' is nil, this function does not check for a (if (and enable-local-variables ;; Don't look for -*- if this file name matches any ;; of the regexps in inhibit-local-variables-regexps. - (not (let ((temp inhibit-local-variables-regexps)) - (while (and temp - (not (string-match (car temp) - buffer-file-name))) - (setq temp (cdr temp))) - (not temp))) + (let ((temp inhibit-local-variables-regexps)) + (while (and temp + (not (string-match (car temp) + buffer-file-name))) + (setq temp (cdr temp))) + (not temp)) (search-forward "-*-" (save-excursion ;; If the file begins with "#!" ;; (exec interpreter magic), look @@ -1880,7 +1880,11 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'." (if (eq system-type 'vax-vms) (vms-read-directory file switches (current-buffer)) (if wildcard - (let ((default-directory (file-name-directory file))) + ;; Run ls in the directory of the file pattern we asked for. + (let ((default-directory + (if (file-name-absolute-p file) + (file-name-directory file) + (file-name-directory (expand-file-name file))))) (call-process shell-file-name nil t nil "-c" (concat insert-directory-program " -d " switches " "